www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminArticle\D_piliang.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->




<!--#include file=inc_lanmu_bl.asp-->



<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file="../adminHTML/makehtm_inc/D_makehtml_class.asp"-->
<!--#include file=../D_delahtm.asp-->



<%
AJAXshowLoader()


%>








	<%
biao="[ND_Article]"






sys_content_type=trim(request("sys_content_type"))


sys_content_type=trim(request("sys_content_type"))

set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1





'------------------------del htm1
is_cmsa=1
is_qiye=0
if cstr(rs44g("is_qiye"))="1" then
is_cmsa=0
is_qiye=1
end if
'------------------------del htm1







if (find_dataw(lanmu_taba,rs44g("id"),2)<>"1" or find_dataw(lanmu_taba,rs44g("id"),3)<>"1") and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if


ssss1=request("dow")
for i=1 to clng(request("len1"))
aa1=request("chec"&cstr(i))
aa2=request("chec_id"&cstr(i))
if aa1="1" then



set rs22=server.CreateObject("adodb.recordset")
rs22.open "select * from "&biao&" where id="&aa2,conn,1,3



if ssss1="批量删除" then

call delahtmx(aa2,"$page$article_view_page$")
biao="[ND_Article]"

conn.execute("delete from  "&biao&" where id="&aa2)


end if

if ssss1="批量置顶" then
rs22("isTop")="1"

rs22.update
rs22.close
set rs22=nothing
end if


if ssss1="取消置顶" then
rs22("isTop")="0"

rs22.update
rs22.close
set rs22=nothing
end if











if ssss1="批量推荐" then
rs22("is_tuijian")="1"

rs22.update
rs22.close
set rs22=nothing
end if









if ssss1="取消推荐" then
rs22("is_tuijian")="0"

rs22.update
rs22.close
set rs22=nothing
end if







if ssss1="批量审核" then
rs22("is_shenhe")="1"

rs22.update
rs22.close
set rs22=nothing
end if





if ssss1="取消审核" then
rs22("is_shenhe")="0"

rs22.update
rs22.close
set rs22=nothing
end if







if ssss1="更新时间" then
rs22("WriteTime")=now()

rs22.update
rs22.close
set rs22=nothing
end if



end if

next






%>

<script language="javascript">
alert("执行成功");
self.location="D_admin_acticle.asp?sys_content_type=<%=sys_content_type%>&classid=<%=request("classidb")%>&page=<%=request("pageb")%>";

</script>

<%
AJAXcloseLoader()
%>